home *** CD-ROM | disk | FTP | other *** search
/ BlastDOS / [DOS_Application]_BIT_Software_-_BitCom_3.58c_-_Distribution_Disks.zip / RECFILE.ACT < prev    next >
Text File  |  1990-06-01  |  1KB  |  25 lines
  1. trace(1)  {turn DEBUG ON}
  2. { shows you to do logon and receive a file }
  3. { from the host computer after you are connected and logon      }
  4. { Invoke this file after you have gone thru the logon sequence  }
  5. { Action file to initiate receive from host System              }
  6. {                                                               }
  7. { you can invoke this action with or without a filename as      }
  8. { an argument. If no file name is given, you will be asked      }
  9. { Check if filename argument given, prompt if not               }
  10. {                                                               }
  11. { You can even invoke this file by hitting a key if you         }
  12. { assign it to a key: e.g.  alt-r = 'invoke recfile'            }
  13. {                                                               }
  14. @a = @1                         {GET ARGUMENT ONE}
  15. if (@1 <> "") goto :noprompt    {SEE IF ARGUMENT }
  16. typecr("");                     {PUT A NEW LINE}
  17. @a = prompt("Enter receive filename: "); {ASK FOR A FILE NAME & STORE IN @A}
  18. if (@a = "") exit;                       {IF NO FILE NAME, QUIT ACTION FILE}
  19. :noprompt                       {FILE NAME IS IN @1}
  20. {The following sequence request the host to send you a file}
  21. "d";                            {ASK HOST TO DOWNLOAD (you receive)}
  22. cwait("?"); @a; @return;        {WAIT FOR ? THEN TELL THE HOST THE NAME IN @a}
  23. cwait("..."); @return;          {WAIT FOR ...}
  24. recvfile(@a, "ascii", "$07$07");  {GET A FILE IN ASCII MODE}
  25.